
       PROGRAM-ID. VARARGS.
       CONFIGURATION SECTION.
       REPOSITORY.
           CLASS J-ARR  AS "java.lang.Object[]"
           CLASS J-CHR  AS "java.lang.Character"
           CLASS J-DBL  AS "java.lang.Double"
           CLASS J-MATH AS "java.lang.Math"
           CLASS J-STR  AS "java.lang.String"
           CLASS J-SYS  AS "java.lang.System"
           .
       WORKING-STORAGE SECTION.
       01  WS-ARRAY  OBJECT REFERENCE J-ARR.
       PROCEDURE DIVISION.
           SET WS-ARRAY    TO J-ARR:>new(3)
           SET WS-ARRAY(0) TO J-STR:>new("pi")
           SET WS-ARRAY(1) TO J-CHR:>new("=")
           SET WS-ARRAY(2) TO J-DBL:>new(J-MATH:>PI)
           INVOKE J-SYS:>out "format" USING "%s%c%f%n", WS-ARRAY
           GOBACK.
